home *** CD-ROM | disk | FTP | other *** search
/ The Netherlands - A Compact World / The Netherlands.iso / chapters / 6.3.dxr / 00069.ls < prev    next >
Encoding:
Text File  |  2004-06-10  |  423 b   |  19 lines
  1. on exitFrame me
  2.   global opkomen
  3.   opkomen = opkomen + 5
  4.   tellertje = 31
  5.   repeat while tellertje <= 54
  6.     niveau = opkomen - (20 * tellertje) + 640
  7.     if niveau < 0 then
  8.       niveau = 0
  9.     end if
  10.     if niveau > 100 then
  11.       niveau = 100
  12.     end if
  13.     set the blend of sprite tellertje to niveau
  14.     set the blend of sprite (tellertje + 36) to niveau
  15.     tellertje = 1 + tellertje
  16.   end repeat
  17.   go(the frame)
  18. end
  19.